home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1997 April
/
EnigmA AMIGA RUN 17 (1997)(G.R. Edizioni)(IT)[!][issue 1997-04][EAR-CD].iso
/
EARCD
/
comm
/
misc
/
zpoint_3_14.lha
/
zpoint-3.14
/
Rexx
/
SaveBinaries.zprx
< prev
next >
Wrap
Text File
|
1995-03-09
|
1KB
|
48 lines
/* SaveBinaries.zprexx */
/* Speichert alle binären Messages und setzt sie auf löschen */
parse arg ZPPort
address value ZPPort
options results
whichlevel
if result~='BOARD' then do
REQUESTNOTIFY 'Nur in einem Brett aufrufbar!'
exit
end
count all
nrofmails=result
saved=0
do i=1 to nrofmails
jumptomessage i
messageinfo type
if result='BINARY' then do
messageinfo subject
/* Aus dem Subject einen Filenamen basteln */
/* Länge auf 30 Zeichen begrenzen, Spaces durch "_" ersetzen */
filename=left(result,30)
filename=space(filename,1,'_')
/* Hier das gewünschte Directory einsetzen */
filename='Work:Archives/'filename
if exists(filename) then do
REQUESTRESPONSE 'File 'filename' existiert bereits. Überschreiben?'
if rc=0 then iterate
end
savemessagebody filename
if rc=0 then do
REQUESTNOTIFY 'Fehler beim speichern!'
exit
end
delete one
saved=saved+1
end
end
REQUESTNOTIFY saved' Nachrichten gespeichert.'